do
#########
echo "#!/usr/bin/perl
open CONFIG, \"${top[i]}.whole.SMW\";
my \$filename=\"${top[i]}\";" > convert_to_return_plain.PL
#########

	## excel
	#cat convert_to_return_plain.PL > convert_to_return_excel.PL
	
	cat convert_to_return_plain.tample.PL >> convert_to_return_plain.PL
	perl convert_to_return_plain.PL
	#perl convert_to_return_excel.PL
	mv ${top[i]}.month.return ../
	i=$((i+1))
done

mv *.month.return ../
#mv *.whole.SMW ../
mv all.array.top50 ../